home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / complib / int_onestep.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  659 b   |  34 lines
  1. /*
  2. ### integration one-stepper ###
  3. */
  4.  
  5. int_onestep(pvx1,pvx2,pvx,ptime,t_step,n,choice)
  6. double *pvx1,*pvx2,*pvx,*ptime,t_step;
  7. int n,choice;
  8. {
  9.     /* list of algorithms */
  10.     switch(choice){
  11.         case 0:
  12.             euler_int_one(pvx1,pvx,ptime,t_step,n);
  13.             break;
  14.         case 1:
  15.             rungekutta_int_one(pvx1,pvx,ptime,t_step,n);
  16.             break;
  17.         case 2: 
  18.             symp_ruth_int_one(pvx1,pvx,ptime,t_step,n);
  19.             break;
  20.         case 3:
  21.             symp_rruth_int_one(pvx1,pvx,ptime,t_step,n);
  22.             break;
  23.         case 4:
  24.             symp_euler_int_one(pvx1,pvx,ptime,t_step,n);
  25.             break;
  26.         case 5:
  27.             symp_forberz_int_one(pvx1,pvx,ptime,t_step,n);
  28.             break;
  29.         case 6:
  30.             user_int_one(pvx1,pvx,ptime,t_step,n);
  31.             break;
  32.     }    
  33. }
  34.